﻿Public Class Traslados

    Public Shared Sub imprimirReporte(ByRef dtTraslado As DataTable, ByRef NUM_TRASLADO As String)
        Dim empresa As GBDZafiro.Empresa = (New Tools).crearEmpresa()
        Dim mTras As New GBDZafiro.Mtraslado
        Dim sb As System.Text.StringBuilder

        mTras.NUM_TRASLADO = NUM_TRASLADO

        Dim dtMtras As DataTable = GBDZafiro.Mtraslado.CosnxNumTraslado(mTras)
        mTras = (New Tools).crearMtraslado(dtMtras)

        DosPrint.seleccionarImpresora()
        DosPrint.yPos = 100

        DosPrint.WriteLn(empresa.RAZON_SOCIAL, StringAlignment.Center)
        DosPrint.WriteLn("Nit " + empresa.NIT, StringAlignment.Center)

        DosPrint.WriteLn("", StringAlignment.Far)
        DosPrint.WriteLn("Traslado No. " + NUM_TRASLADO, StringAlignment.Far)
        DosPrint.WriteLn("Fecha: " + mTras.FECHA_TRASLADO, StringAlignment.Far)
        DosPrint.WriteLn("", StringAlignment.Far)
        DosPrint.WriteLn("", StringAlignment.Far)

        DosPrint.ToColumnHeaders()

        sb = New System.Text.StringBuilder
        sb.AppendFormat("{0} ", DosPrint.ajustar("Código", DosPrint.anchoColumnasImp(0)))
        sb.AppendFormat("{0} ", DosPrint.ajustar("Descripción", DosPrint.anchoColumnasImp(1)))
        sb.AppendFormat("{0} ", DosPrint.ajustar("Cantidad", DosPrint.anchoColumnasImp(2)))
        sb.AppendFormat("{0} ", DosPrint.ajustar("Unidad", DosPrint.anchoColumnasImp(3)))
        sb.AppendFormat("{0} ", DosPrint.ajustar("Bodega", DosPrint.anchoColumnasImp(4)))
        sb.AppendFormat("{0} ", DosPrint.ajustar("Movimiento", DosPrint.anchoColumnasImp(5)))
        DosPrint.WriteLn(sb.ToString, StringAlignment.Near)


        For Each rmTraslado As DataRow In dtTraslado.Rows
            sb = New System.Text.StringBuilder
            sb.AppendFormat("{0} ", DosPrint.ajustar(rmTraslado("CODIGO1").ToString, DosPrint.anchoColumnasImp(0)))
            sb.AppendFormat("{0} ", DosPrint.ajustar(rmTraslado("DESCRIPCION1").ToString, DosPrint.anchoColumnasImp(1)))
            sb.AppendFormat("{0} ", DosPrint.ajustar(rmTraslado("CANTIDAD1").ToString, DosPrint.anchoColumnasImp(2)))
            sb.AppendFormat("{0} ", DosPrint.ajustar(rmTraslado("UNIDAD1").ToString, DosPrint.anchoColumnasImp(3)))
            sb.AppendFormat("{0} ", DosPrint.ajustar(rmTraslado("BD1").ToString, DosPrint.anchoColumnasImp(4)))
            sb.AppendFormat("{0} ", DosPrint.ajustar("Salida", DosPrint.anchoColumnasImp(5)))
            DosPrint.WriteLn(sb.ToString, StringAlignment.Near)

            sb = New System.Text.StringBuilder
            sb.AppendFormat("{0} ", DosPrint.ajustar(rmTraslado("CODIGO2").ToString, DosPrint.anchoColumnasImp(0)))
            sb.AppendFormat("{0} ", DosPrint.ajustar(rmTraslado("DESCRIPCION2").ToString, DosPrint.anchoColumnasImp(1)))
            sb.AppendFormat("{0} ", DosPrint.ajustar(rmTraslado("CANTIDAD2").ToString, DosPrint.anchoColumnasImp(2)))
            sb.AppendFormat("{0} ", DosPrint.ajustar(rmTraslado("UNIDAD2").ToString, DosPrint.anchoColumnasImp(3)))
            sb.AppendFormat("{0} ", DosPrint.ajustar(rmTraslado("BD2").ToString, DosPrint.anchoColumnasImp(4)))
            sb.AppendFormat("{0} ", DosPrint.ajustar("Entrada", DosPrint.anchoColumnasImp(5)))
            DosPrint.WriteLn(sb.ToString, StringAlignment.Near)
        Next

    End Sub

End Class
